Shareware Grab Bag/Shareware Grab Bag.iso/003/db2ios.arc/SHIPDOC.SIG

Text File | 1983-01-04 | 3.1 KB | 118 lines

* shipdoc.sig 08/27/83
ERASE
STORE DATE() TO stdat
* get a starting  point
STORE DATE() TO stdat
@ 18,12 SAY 'Orders after what date require shipping documents'
@ 18,60 GET stdat PICTURE '99/99/99'
READ
STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
GOTO TOP
STORE t TO more
SET FORMAT TO PRINT
SET MARGIN TO 0
? CHR(29)
SET CONSOLE OFF
DO WHILE more
IF .NOT. EOF
STORE $(dayu,7,2)+$(dayu,1,2)+$(dayu,4,2) TO stdate1
IF stdate1 >= stdate
@ 1,10 SAY 'SIG/M SOFTWARE - BOX 97 - ISELIN, NJ 08830'
@ 3,6 SAY 'ORDER NUMBER'
@ 3,19 SAY ':'
@ 3,20 SAY ORDER
@ 3,42 SAY 'Complete'
@ 3,51 SAY ':'
@ 3,52 SAY COMP
@ 5,9 SAY 'Last name'
@ 5,19 SAY ':'
@ 5,20 SAY LNAME
@ 5,45 SAY 'First'
@ 5,51 SAY ':'
@ 5,52 SAY FNAME
@ 7,11 SAY 'Address'
@ 7,19 SAY ':'
@ 7,20 SAY ADDR1
@ 8,10 SAY '(line 2)'
@ 8,19 SAY ':'
@ 8,20 SAY ADDR2
@ 9,10 SAY '(line 3)'
@ 9,19 SAY ':'
@ 9,20 SAY ADDR3
@ 10,14 SAY 'City'
@ 10,19 SAY ':'
@ 10,20 SAY CITY
@ 10,48 SAY 'ST'
@ 10,51 SAY ':'
@ 10,52 SAY STATE
@ 10,67 SAY 'Zip'
@ 10,71 SAY ':'
@ 10,72 SAY ZIP
@ 13,3 SAY 'Volumes'
@ 13,11 SAY ':'
@ 13,12 SAY VOL1
@ 16,4 SAY 'Amount'
@ 16,11 SAY ':'
@ 16,12 SAY AMT USING '$999.99'
@ 16,23 SAY 'Ordered'
@ 16,31 SAY ':'
@ 16,51 SAY ':'
@ 16,52 SAY ENTERED
@ 16,62 SAY 'Shipped'
@ 16,70 SAY ':'
@ 16,71 SAY SHIPPED
@ 17,43 SAY 'Catalog'
@ 17,51 SAY ':'
@ 17,52 SAY CATALOG
@ 18,3 SAY 'Remarks'
@ 18,11 SAY ':'
@ 18,12 SAY REM1
@ 19,3 SAY 'Remarks'
@ 19,11 SAY ':'
@ 19,12 SAY REM2
@ 20,1 SAY 'Backorder'
@ 20,11 SAY ':'
@ 20,12 SAY BO
@ 22,01 SAY 'Backorder shipped'
@ 22,19 SAY ':'
@ 22,20 SAY BO:SHIP
@ 22,40 SAY 'Backorder shipped'
@ 22,58 SAY ':'
@ 22,59 SAY BO2:SHIP
@ 24,10 SAY "BACKORDERED VOLUMES WILL BE SHIPPED SEPARATELY"
@ 25,1 SAY '* * * * * * * * * * * * * * * * * * *'
@ 25,40 SAY '* * * * * * * * * * * * * * * * * *'
@ 27,0 SAY 'SIG/M MAIL ORDER RATES'
@ 28,0 SAY 'Domestic(US & Canada):  $5/volume + $1/order for shipping (UPS)'
@ 29,0 SAY ' Foreign: $9 = $6/volume + $3/disk for shipping (AIR MAIL)'
@ 31,0 SAY '[  ] Your payment was not sufficient to complete your order. The balance of'
@ 32,0 SAY '     your order of $____________ will be applied to your next order if you'
@ 33,0 SAY '     return this form with your order.'
@ 35,0 SAY '[  ] You have overpaid for your order.'
@ 36,0 SAY '     [   ] We are sending additional volumes since it looks like you are'
@ 37,0 SAY '           getting the complete library.'
@ 39,0 SAY '     [   ] You overpaid  $__________. It be applied to your next'
@ 40,0 SAY '           order if you return this form with your order.'
@ 42,0 SAY '[  ] We are returning your blank disks. We only copy  to'
@ 43,0 SAY '     member supplied disks at User Group meetings.Because'
@ 44,0 SAY '     of high shipping costs, we charged your account $______'
@ 45,0 SAY '     for return shipping. '
@ 47,0 SAY '[  ] Other:'
@ 50,20 SAY 'Many thanks for your order from SIG/M SOFTWARE'
@ 51,40 SAY DATE()
EJECT
SKIP
ELSE
SKIP
ENDIF $date
ELSE
STORE f TO more
ENDIF not EOF
ENDDO more
EJECT
? CHR(30)
SET FORMAT TO SCREEN
RELEASE all
STORE t TO more
STORE t TO first